home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_10_thumbnail functions.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  4.7 KB  |  141 lines
  1. global gTNStartChannel, gTNCastLibNum, glImageList, glListState, glWSearchState, glRSearchState, glSSearchState, gCurrentScreen, gDomain, gTNClickOffset, gMouseOverTNspriteNum, gValiddEntry, gCurrentList, gListObject, PFList
  2.  
  3. on DisplayCurrentImageInList
  4.   PFList.pSelectedImageSpriteNum = gTNStartChannel + (PFList.pImageListPosition mod 30)
  5.   if PFList.pltnnumberlist.count < 31 then
  6.     PFList.pImageScroll = 1
  7.   else
  8.     PFList.pImageScroll = integer(PFList.pImageListPosition / 30) + 1
  9.   end if
  10.   DisplayThumbNails()
  11.   UpdateImageScroller()
  12.   if gCurrentList = EMPTY then
  13.     HideSelection()
  14.   else
  15.     ShowSelection()
  16.   end if
  17.   RepositionTNhilite(PFList.pImageScroll)
  18. end
  19.  
  20. on ShowSelection
  21.   if value(gListObject).pSelectedImageSpriteNum <> 0 then
  22.     sprite(80).loc = sprite(value(gListObject).pSelectedImageSpriteNum).loc
  23.   else
  24.     sprite(80).loc = point(-200, 0)
  25.   end if
  26.   sendSprite(73, #SetDimState)
  27. end
  28.  
  29. on HideSelection
  30.   value(gListObject).pSelectedImageSpriteNum = 0
  31.   value(gListObject).pCurrentImage = EMPTY
  32.   sprite(80).loc = point(-200, 0)
  33.   sendSprite(73, #SetDimState)
  34. end
  35.  
  36. on PositionInsertionBar
  37.   if sprite(gMouseOverTNspriteNum).member.name = "TN Placeholder" then
  38.     exit
  39.   end if
  40.   sprite(78).loc = sprite(gMouseOverTNspriteNum).loc
  41. end
  42.  
  43. on RepositionTNhilite oldImageScroll
  44.   if sprite(80).locH <> -400 then
  45.     scrollDirection = value(gListObject).pImageScroll - oldImageScroll
  46.     value(gListObject).pSelectedImageSpriteNum = value(gListObject).pSelectedImageSpriteNum - (scrollDirection * 6)
  47.     if (value(gListObject).pSelectedImageSpriteNum >= 31) and (value(gListObject).pSelectedImageSpriteNum <= (gTNStartChannel + value(gListObject).pltnnumberlist.count)) then
  48.       sprite(80).loc = sprite(value(gListObject).pSelectedImageSpriteNum).loc
  49.     else
  50.       sprite(80).loc = point(-200, 0)
  51.     end if
  52.   end if
  53. end
  54.  
  55. on DisplayThumbNails Option
  56.   FirstImage = (value(gListObject).pImageScroll * 6) - 5
  57.   value(gListObject).pltnnumberlist = []
  58.   ImagesToDisplay = duplicate(value(gListObject).plFoundImages)
  59.   repeat with theFoundImageNum = ImagesToDisplay.count down to 1
  60.     if getOne(glImageList, getAt(ImagesToDisplay, theFoundImageNum)) = 0 then
  61.       deleteOne(ImagesToDisplay, getAt(ImagesToDisplay, theFoundImageNum))
  62.     end if
  63.   end repeat
  64.   NumberOfImages = ImagesToDisplay.count
  65.   if ImagesToDisplay <> [] then
  66.     repeat with imageNum = FirstImage to FirstImage + 29
  67.       if imageNum <= NumberOfImages then
  68.         append(value(gListObject).pltnnumberlist, getAt(ImagesToDisplay, imageNum))
  69.         next repeat
  70.       end if
  71.       exit repeat
  72.     end repeat
  73.     channelNum = gTNStartChannel
  74.     if not (value(gListObject).pltnnumberlist = []) then
  75.       repeat with theImage in value(gListObject).pltnnumberlist
  76.         if channelNum < (gTNStartChannel + 30) then
  77.           channelNum = channelNum + 1
  78.           if not TNmemberExists(theImage, gTNCastLibNum) then
  79.             alert("Can't find the thumbnails for image" && theImage)
  80.             exit
  81.           end if
  82.           sprite(channelNum).member = member(theImage, gTNCastLibNum)
  83.           next repeat
  84.         end if
  85.         exit repeat
  86.       end repeat
  87.       if value(gListObject).pltnnumberlist.count < 30 then
  88.         repeat with emptyImage = value(gListObject).pltnnumberlist.count + 1 to 30
  89.           channelNum = channelNum + 1
  90.           sprite(channelNum).member = "TN placeholder"
  91.         end repeat
  92.       end if
  93.     end if
  94.   else
  95.     repeat with emptyTNs = gTNStartChannel + 1 to gTNStartChannel + 30
  96.       sprite(emptyTNs).member = "TN placeholder"
  97.     end repeat
  98.     sprite(80).loc = point(-400, 0)
  99.     updateStage()
  100.     exit
  101.   end if
  102. end
  103.  
  104. on UpdateImageScroller
  105.   member("thumbnail scrollbar").text = EMPTY
  106.   ImagesToDisplay = duplicate(value(gListObject).plFoundImages)
  107.   numberOfLines = integer(ImagesToDisplay.count / 6)
  108.   repeat with scrollerLines = 1 to numberOfLines - 1
  109.     put RETURN after member "thumbnail scrollbar"
  110.   end repeat
  111.   member("thumbnail scrollbar").scrollTop = (value(gListObject).pImageScroll - 1) * 110
  112.   updateStage()
  113. end
  114.  
  115. on EraseThumbnails
  116.   value(gListObject).pSelectedImageSpriteNum = 0
  117.   sprite(80).loc = point(-400, 0)
  118.   repeat with x = gTNStartChannel + 1 to gTNStartChannel + 30
  119.     sprite(x).member = "TN placeholder"
  120.   end repeat
  121.   updateStage()
  122.   value(gListObject).plFoundImages = []
  123.   value(gListObject).pCurrentImage = EMPTY
  124. end
  125.  
  126. on DisplaySystemThumbs ImageList
  127.   channelNum = gTNStartChannel
  128.   if not (ImageList = []) then
  129.     repeat with theImage in ImageList
  130.       if not (getOne(glImageList, theImage) = 0) then
  131.         if channelNum < 60 then
  132.           channelNum = channelNum + 1
  133.           sprite(channelNum).member = member(theImage, gTNCastLibNum)
  134.           next repeat
  135.         end if
  136.         exit repeat
  137.       end if
  138.     end repeat
  139.   end if
  140. end
  141.